## GetKey -- return key that was pressed, if any# Matthias Neeracher <neeri@iis.ee.ethz.ch>## Distribution permitted as long as copyright notice stays intact.## $result = &MacPerl'GetKey();## $result is a single character if a key was pressed, else# an empty string.#package MacPerl;&MacPerl'LoadExternals("GetKey.pl");1;